home *** CD-ROM | disk | FTP | other *** search
/ DarkBASIC - The Ultimate 3D Game Creator / PCactive 8 CD1 - DarkBasic.iso / SOFTWARE / DEMOS / DarkForge2000 / snippets_vol2 / snip_fuzzydisplay.dba < prev    next >
Encoding:
Text File  |  2000-08-20  |  824 b   |  49 lines
  1. `    ------------------------------------------------------------------------
  2. `    Fuzzy Display                              DarkForge Snippet (20/8/2000)
  3. `    ------------------------------------------------------------------------
  4. `
  5. `    A slightly "different" way to display a picture!
  6.  
  7. sync rate 0
  8. sync on
  9. hide mouse
  10.  
  11. `    Play with this value for more/less "mess" at the start
  12.  
  13. s=180
  14.  
  15. load bitmap "anhk_inside.bmp",1
  16. create bitmap 2,640,480
  17.  
  18. set current bitmap 1
  19. for i=1 to 480
  20.     get image i,0,i-1,640,i
  21. next i
  22.  
  23. set text opaque
  24. ink rgb(255,255,255),0
  25.  
  26. repeat
  27.  
  28.     set current bitmap 2
  29.  
  30.     for i=1 to 480
  31.         paste image i,rnd(s),i
  32.     next i
  33.  
  34. `    Uncomment line below to display the FPS
  35. `    text 0,0,str$(screen fps())
  36.  
  37.     dec s
  38.  
  39.     set current bitmap 0
  40.     copy bitmap 2,0
  41.  
  42.     sync
  43.  
  44. until s<0
  45.  
  46. wait key
  47. end
  48.  
  49.